home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 April / PCWorld_1999-04_cd.bin / Software / Vyzkuste / LearnVB6 / VB Code / Class 3 / Exercise3.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-04-14  |  11.7 KB  |  384 lines
  1. VERSION 5.00
  2. Begin VB.Form frmCustomer 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Customer Profile"
  5.    ClientHeight    =   4485
  6.    ClientLeft      =   1215
  7.    ClientTop       =   1545
  8.    ClientWidth     =   6690
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    PaletteMode     =   1  'UseZOrder
  13.    ScaleHeight     =   4485
  14.    ScaleWidth      =   6690
  15.    Begin VB.TextBox txtAge 
  16.       BeginProperty Font 
  17.          Name            =   "MS Sans Serif"
  18.          Size            =   12
  19.          Charset         =   0
  20.          Weight          =   400
  21.          Underline       =   0   'False
  22.          Italic          =   0   'False
  23.          Strikethrough   =   0   'False
  24.       EndProperty
  25.       Height          =   420
  26.       Left            =   5040
  27.       TabIndex        =   2
  28.       Top             =   120
  29.       Width           =   1095
  30.    End
  31.    Begin VB.CommandButton cmdExit 
  32.       Caption         =   "E&xit"
  33.       Height          =   495
  34.       Left            =   5040
  35.       TabIndex        =   22
  36.       Top             =   3840
  37.       Width           =   1095
  38.    End
  39.    Begin VB.Frame Frame5 
  40.       Caption         =   "City of Residence"
  41.       BeginProperty Font 
  42.          Name            =   "MS Sans Serif"
  43.          Size            =   9.75
  44.          Charset         =   0
  45.          Weight          =   700
  46.          Underline       =   0   'False
  47.          Italic          =   -1  'True
  48.          Strikethrough   =   0   'False
  49.       EndProperty
  50.       Height          =   1695
  51.       Left            =   2400
  52.       TabIndex        =   8
  53.       Top             =   720
  54.       Width           =   2175
  55.       Begin VB.ComboBox cboCity 
  56.          Height          =   1350
  57.          Left            =   120
  58.          Sorted          =   -1  'True
  59.          Style           =   1  'Simple Combo
  60.          TabIndex        =   9
  61.          Top             =   240
  62.          Width           =   1935
  63.       End
  64.    End
  65.    Begin VB.CommandButton cmdNew 
  66.       Caption         =   "&New Profile"
  67.       Height          =   495
  68.       Left            =   5040
  69.       TabIndex        =   7
  70.       Top             =   3240
  71.       Width           =   1095
  72.    End
  73.    Begin VB.CommandButton cmdShow 
  74.       Caption         =   "&Show Profile"
  75.       Height          =   495
  76.       Left            =   5040
  77.       TabIndex        =   6
  78.       Top             =   2640
  79.       Width           =   1095
  80.    End
  81.    Begin VB.Frame Frame4 
  82.       Caption         =   "Athletic Level"
  83.       BeginProperty Font 
  84.          Name            =   "MS Sans Serif"
  85.          Size            =   9.75
  86.          Charset         =   0
  87.          Weight          =   700
  88.          Underline       =   0   'False
  89.          Italic          =   -1  'True
  90.          Strikethrough   =   0   'False
  91.       EndProperty
  92.       Height          =   1815
  93.       Left            =   2400
  94.       TabIndex        =   5
  95.       Top             =   2520
  96.       Width           =   2175
  97.       Begin VB.OptionButton optLevel 
  98.          Caption         =   "Beginner"
  99.          Height          =   255
  100.          Index           =   3
  101.          Left            =   120
  102.          TabIndex        =   20
  103.          Top             =   1440
  104.          Width           =   1335
  105.       End
  106.       Begin VB.OptionButton optLevel 
  107.          Caption         =   "Intermediate"
  108.          Height          =   255
  109.          Index           =   2
  110.          Left            =   120
  111.          TabIndex        =   19
  112.          Top             =   1080
  113.          Value           =   -1  'True
  114.          Width           =   1215
  115.       End
  116.       Begin VB.OptionButton optLevel 
  117.          Caption         =   "Advanced"
  118.          Height          =   255
  119.          Index           =   1
  120.          Left            =   120
  121.          TabIndex        =   18
  122.          Top             =   720
  123.          Width           =   1335
  124.       End
  125.       Begin VB.OptionButton optLevel 
  126.          Caption         =   "Extreme"
  127.          Height          =   255
  128.          Index           =   0
  129.          Left            =   120
  130.          TabIndex        =   17
  131.          Top             =   360
  132.          Width           =   1215
  133.       End
  134.    End
  135.    Begin VB.Frame Frame2 
  136.       Caption         =   "Sex"
  137.       BeginProperty Font 
  138.          Name            =   "MS Sans Serif"
  139.          Size            =   9.75
  140.          Charset         =   0
  141.          Weight          =   700
  142.          Underline       =   0   'False
  143.          Italic          =   -1  'True
  144.          Strikethrough   =   0   'False
  145.       EndProperty
  146.       Height          =   1095
  147.       Left            =   120
  148.       TabIndex        =   4
  149.       Top             =   600
  150.       Width           =   2055
  151.       Begin VB.OptionButton optSex 
  152.          Caption         =   "Female"
  153.          Height          =   255
  154.          Index           =   1
  155.          Left            =   120
  156.          TabIndex        =   16
  157.          Top             =   720
  158.          Width           =   1695
  159.       End
  160.       Begin VB.OptionButton optSex 
  161.          Caption         =   "Male"
  162.          Height          =   255
  163.          Index           =   0
  164.          Left            =   120
  165.          TabIndex        =   15
  166.          Top             =   360
  167.          Value           =   -1  'True
  168.          Width           =   1695
  169.       End
  170.    End
  171.    Begin VB.Frame Frame3 
  172.       Caption         =   "Activities"
  173.       BeginProperty Font 
  174.          Name            =   "MS Sans Serif"
  175.          Size            =   9.75
  176.          Charset         =   0
  177.          Weight          =   700
  178.          Underline       =   0   'False
  179.          Italic          =   -1  'True
  180.          Strikethrough   =   0   'False
  181.       EndProperty
  182.       Height          =   2535
  183.       Left            =   120
  184.       TabIndex        =   3
  185.       Top             =   1800
  186.       Width           =   2055
  187.       Begin VB.CheckBox chkAct 
  188.          Caption         =   "In-Line Skating"
  189.          Height          =   255
  190.          Index           =   5
  191.          Left            =   120
  192.          TabIndex        =   21
  193.          Top             =   2160
  194.          Width           =   1455
  195.       End
  196.       Begin VB.CheckBox chkAct 
  197.          Caption         =   "Skiing"
  198.          Height          =   255
  199.          Index           =   4
  200.          Left            =   120
  201.          TabIndex        =   14
  202.          Top             =   1800
  203.          Width           =   1455
  204.       End
  205.       Begin VB.CheckBox chkAct 
  206.          Caption         =   "Swimming"
  207.          Height          =   255
  208.          Index           =   3
  209.          Left            =   120
  210.          TabIndex        =   13
  211.          Top             =   1440
  212.          Width           =   1215
  213.       End
  214.       Begin VB.CheckBox chkAct 
  215.          Caption         =   "Biking"
  216.          Height          =   255
  217.          Index           =   2
  218.          Left            =   120
  219.          TabIndex        =   12
  220.          Top             =   1080
  221.          Width           =   1335
  222.       End
  223.       Begin VB.CheckBox chkAct 
  224.          Caption         =   "Walking"
  225.          Height          =   255
  226.          Index           =   1
  227.          Left            =   120
  228.          TabIndex        =   11
  229.          Top             =   720
  230.          Width           =   1455
  231.       End
  232.       Begin VB.CheckBox chkAct 
  233.          Caption         =   "Running"
  234.          Height          =   255
  235.          Index           =   0
  236.          Left            =   120
  237.          TabIndex        =   10
  238.          Top             =   360
  239.          Width           =   1455
  240.       End
  241.    End
  242.    Begin VB.TextBox txtName 
  243.       BeginProperty Font 
  244.          Name            =   "MS Sans Serif"
  245.          Size            =   12
  246.          Charset         =   0
  247.          Weight          =   400
  248.          Underline       =   0   'False
  249.          Italic          =   0   'False
  250.          Strikethrough   =   0   'False
  251.       EndProperty
  252.       Height          =   420
  253.       Left            =   840
  254.       TabIndex        =   1
  255.       Top             =   120
  256.       Width           =   3495
  257.    End
  258.    Begin VB.Label Label2 
  259.       Caption         =   "Age"
  260.       BeginProperty Font 
  261.          Name            =   "MS Sans Serif"
  262.          Size            =   9.75
  263.          Charset         =   0
  264.          Weight          =   700
  265.          Underline       =   0   'False
  266.          Italic          =   -1  'True
  267.          Strikethrough   =   0   'False
  268.       EndProperty
  269.       Height          =   375
  270.       Left            =   4440
  271.       TabIndex        =   23
  272.       Top             =   240
  273.       Width           =   615
  274.    End
  275.    Begin VB.Label Label1 
  276.       Caption         =   "Name"
  277.       BeginProperty Font 
  278.          Name            =   "MS Sans Serif"
  279.          Size            =   9.75
  280.          Charset         =   0
  281.          Weight          =   700
  282.          Underline       =   0   'False
  283.          Italic          =   -1  'True
  284.          Strikethrough   =   0   'False
  285.       EndProperty
  286.       Height          =   255
  287.       Left            =   120
  288.       TabIndex        =   0
  289.       Top             =   240
  290.       Width           =   735
  291.    End
  292. Attribute VB_Name = "frmCustomer"
  293. Attribute VB_GlobalNameSpace = False
  294. Attribute VB_Creatable = False
  295. Attribute VB_PredeclaredId = True
  296. Attribute VB_Exposed = False
  297. Option Explicit
  298. Dim Activity As String
  299. Private Sub cmdExit_Click()
  300. End Sub
  301. Private Sub cmdNew_Click()
  302. 'Blank out name and reset check boxes
  303. Dim I As Integer
  304. txtName.Text = ""
  305. txtAge.Text = ""
  306. For I = 0 To 5
  307.   chkAct(I).Value = vbUnchecked
  308. Next I
  309. End Sub
  310. Private Sub cmdShow_Click()
  311. Dim NoAct As Integer, I As Integer
  312. Dim Msg As String, Pronoun As String
  313. 'Check to make sure name entered
  314. If txtName.Text = "" Then
  315.   MsgBox "The profile requires a name.", vbOKOnly + vbCritical, "No Name Entered"
  316.   Exit Sub
  317. End If
  318. 'Check to make sure age entered
  319. If txtAge.Text = "" Then
  320.   MsgBox "The profile requires an age.", vbOKOnly + vbCritical, "No Age Entered"
  321.   Exit Sub
  322. End If
  323. 'Put together customer profile message
  324. Msg = txtName.Text + " is" + Str$(txtAge.Text) + " years old." + vbCr
  325. If optSex(0).Value = True Then Pronoun = "He " Else Pronoun = "She "
  326. Msg = Msg + Pronoun + "lives in " + cboCity.Text + "." + vbCr
  327. Msg = Msg + Pronoun + "is a"
  328. If optLevel(3).Value = False Then Msg = Msg + "n " Else Msg = Msg + " "
  329. Msg = Msg + Activity + " level athlete." + vbCr
  330. NoAct = 0
  331. For I = 0 To 5
  332.   If chkAct(I).Value = vbChecked Then NoAct = NoAct + 1
  333. Next I
  334. If NoAct > 0 Then
  335.   Msg = Msg + "Activities include:" + vbCr
  336.   For I = 0 To 5
  337.     If chkAct(I).Value = vbChecked Then Msg = Msg + String$(10, 32) + chkAct(I).Caption + vbCr
  338.   Next I
  339.   Msg = Msg + vbCr
  340. End If
  341. MsgBox Msg, vbOKOnly, "Customer Profile"
  342. End Sub
  343. Private Sub Form_Load()
  344. 'Load combo box with potential city names
  345. cboCity.AddItem "Seattle"
  346. cboCity.Text = "Seattle"
  347. cboCity.AddItem "Bellevue"
  348. cboCity.AddItem "Kirkland"
  349. cboCity.AddItem "Everett"
  350. cboCity.AddItem "Mercer Island"
  351. cboCity.AddItem "Renton"
  352. cboCity.AddItem "Issaquah"
  353. cboCity.AddItem "Kent"
  354. cboCity.AddItem "Bothell"
  355. cboCity.AddItem "Tukwila"
  356. cboCity.AddItem "West Seattle"
  357. cboCity.AddItem "Edmonds"
  358. cboCity.AddItem "Tacoma"
  359. cboCity.AddItem "Federal Way"
  360. cboCity.AddItem "Burien"
  361. cboCity.AddItem "SeaTac"
  362. cboCity.AddItem "Woodinville"
  363. Activity = "intermediate"
  364. End Sub
  365. Private Sub optLevel_Click(Index As Integer)
  366. Select Case Index
  367. Case 0
  368.    Activity = "extreme"
  369. Case 1
  370.   Activity = "advanced"
  371. Case 2
  372.   Activity = "intermediate"
  373. Case 3
  374.   Activity = "beginner"
  375. End Select
  376. End Sub
  377. Private Sub txtAge_KeyPress(KeyAscii As Integer)
  378. 'Only allow numbers for age
  379. If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyBack Then
  380.   Exit Sub
  381.   KeyAscii = 0
  382. End If
  383. End Sub
  384.